home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / D_TAPI.ZIP / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-01  |  1.0 KB  |  61 lines
  1. unit Main;
  2. {
  3.     TAPI Test
  4.     by Davide Moretti <dmoretti@iper.net>
  5.  
  6.     this code is freeware, and can be used
  7.     anywhere without permission.
  8. }
  9.  
  10. interface
  11.  
  12. uses
  13.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  14.   Forms, Dialogs, StdCtrls;
  15.  
  16. type
  17.     TfrmMain = class(TForm)
  18.         btnMonitor: TButton;
  19.         btnCall: TButton;
  20.     Label1: TLabel;
  21.         procedure btnMonitorClick(Sender: TObject);
  22.         procedure btnCallClick(Sender: TObject);
  23.     private
  24.         { Private declarations }
  25.     public
  26.         { Public declarations }
  27.         Monitor: Boolean;
  28.         Call: Boolean;
  29.     end;
  30.  
  31. var
  32.     frmMain: TfrmMain;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. uses MonForm, CallForm;
  39.  
  40. procedure TfrmMain.btnMonitorClick(Sender: TObject);
  41.     begin
  42.     if Monitor = false then
  43.         begin
  44.         frmTAPIMon := TfrmTAPIMon.Create(Self);
  45.         frmTAPIMon.Show;
  46.         Monitor := True;
  47.         end;
  48.     end;
  49.  
  50. procedure TfrmMain.btnCallClick(Sender: TObject);
  51.     begin
  52.     if Call = False then
  53.         begin
  54.         frmTAPICall := TfrmTAPICall.Create(Self);
  55.         frmTAPICall.Show;
  56.         Call := True;
  57.         end;
  58.     end;
  59.  
  60. end.
  61.